gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\admin\treatedView.asp
<!-- #include file = "include/sysbase.asp" -->
<%
dim rsObj,strSQL
set rsObj = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM OrderList WHERE id = "&RealString(Request.QueryString("id"))
rsObj.Open strSQL, conn, adOpenKeyset, adLockReadOnly
%>
<html>
<head>
<title>查看订单</title>
<meta http-equiv = "Content-Type" content = "text/html; charset = gb2312">
<link rel = "stylesheet" href = "include/main.css" type = "text/css">
</head>
<body text = "#000000" leftmargin = "0" topmargin = "6">
<table width = "98%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "2" align = "center">
<tr>
<td colspan = "2" height = "28" bgcolor = "#4296E7">
<div align = "center"><font color = "#000000">查看订单</font></div>
</td>
</tr>
<tr bgcolor = "#77B3EE">
<td colspan = "2" nowrap><font face = "Wingdings 3"><b><font color = "#000000">a</font></b></font>
<font color = "#660033"> 订单详细资料……</font></td>
</tr>
<tr>
<td width = "12%" nowrap >
<div align = "right"><font color = "#000000">订单号</font></div>
</td>
<td width = "88%"><%=rsObj("id")%></td>
</tr>
<tr>
<td width = "12%" nowrap >
<div align = "right"><font color = "#000000">客户帐号</font></div>
</td>
<td width = "88%"><%=rsObj("memberID")%> </td>
</tr>
<tr>
<td width = "12%" nowrap >
<div align = "right"><font color = "#000000">收货人姓名</font></div>
</td>
<td width = "88%"><%=rsObj("customerName")%> </td>
</tr>
<tr>
<td width = "12%" nowrap >
<div align = "right"><font color = "#000000">收货人地址</font></div>
</td>
<td width = "88%"><%=rsObj("address")%> </td>
</tr>
<tr>
<td width = "12%" nowrap >
<div align = "right"><font color = "#000000">邮政编码</font></div>
</td>
<td width = "88%"><%=rsObj("Zipcode")%> </td>
</tr>
<tr>
<td width = "12%" nowrap >
<div align = "right"><font color = "#000000">联系电话</font></div>
</td>
<td width = "88%"><%=rsObj("phone")%> </td>
</tr>
<tr>
<td width = "12%" nowrap >
<div align = "right"><font color = "#000000">电子邮件</font></div>
</td>
<td width = "88%"><%=rsObj("email")%> </td>
</tr>
<tr>
<td width = "12%" nowrap >
<div align = "right"><font color = "#000000">付款方式</font></div>
</td>
<td width = "88%"><%=rsObj("payment")%> </td>
</tr>
<tr>
<td width = "12%" nowrap >
<div align = "right"><font color = "#000000">备注</font></div>
</td>
<td width = "88%"><%=rsObj("remark")%> </td>
</tr>
<tr>
<td width = "12%" nowrap >
<div align = "right"><font color = "#000000">订货日期</font></div>
</td>
<td width = "88%"><%=rsObj("createDate")%> </td>
</tr>
<tr>
<td width = "12%" nowrap >
<div align = "right"><font color = "#000000">发货日期</font></div>
</td>
<td width = "88%"><%=rsObj("treatedDate")%> </td>
</tr>
<tr>
<td width = "12%" nowrap >
<div align = "right"><font color = "#000000">发货备注</font></div>
</td>
<td width = "88%"><%=rsObj("treatedRemark")%> </td>
</tr>
<tr bgcolor = "#77B3EE">
<td colspan = "2" nowrap><font face = "Wingdings 3"><b><font color = "#000000">a</font></b></font>
<font color = "#660033">订货手机明细……</font></td>
</tr>
</table>
<%
'手机明细
strSQL = "SELECT * FROM orderDetail WHERE orderID = "&RealString(Request.QueryString("id"))
set rsObj = conn.execute (strSQL)
%>
<table width = "98%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "2" align = "center">
<tr>
<td>
<div align = "center">手机编号</div>
</td>
<td>
<div align = "center">手机名称</div>
</td>
<td>
<div align = "center">手机价格</div>
</td>
<td>
<div align = "center">手机数量</div>
</td>
<td>
<div align = "center">金额小计</div>
</td>
</tr>
<%
dim totalPrice
totalPrice = 0
do while (not rsObj.eof or err)
%>
<tr bgcolor = "#C8E0F7">
<td>
<div align = "center"><%=rsObj("productID")%> </div>
</td>
<td>
<div align = "center"><%=rsObj("productName")%> </div>
</td>
<td>
<div align = "center"><%=rsObj("price")%> </div>
</td>
<td>
<div align = "center"><%=rsObj("quantity")%> </div>
</td>
<td>
<div align = "center"><%if rsObj("price")<>"" AND rsObj("quantity")<>"" then Response.Write rsObj("price")*rsObj("quantity")%> </div>
</td>
</tr>
<%
if rsObj("price")<>"" AND rsObj("quantity")<>"" then
totalPrice = totalPrice+rsObj("price")*rsObj("quantity")
end if
rsObj.MoveNext
loop
%>
<tr>
<td colspan = "5">
<div align = "right">总计金额：<%=totalPrice%>元 </div>
</td>
</tr>
</table>
<table width = "98%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "2" align = "center">
<tr>
<td height = "28" bgcolor = "#4296E7" colspan = "2">
<div align = "center">
<input type = "button" name = "Submit2" value = " 返 回 " onClick = "window.location = '<%=Session("adminOldUrl")%>'">
</div>
</td>
</tr>
</table>
</body>
</html>